home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00126_Script_126 < prev    next >
Text File  |  1997-09-29  |  837b  |  37 lines
  1. on mouseDown
  2.   
  3.   --puppetSound 0
  4.   set ch = clickOn()
  5.   put the castNum of sprite ch into btnCN
  6.   repeat while the stillDown
  7.     if rollOver(ch) then
  8.       set the castNum of sprite ch to btnCN+1
  9.       updateStage
  10.       wait 10
  11.       
  12.       global UsermonNum
  13.       if (field "UsermonNum") >= 100 then
  14.         put "100" into field "UsermonNum"
  15.       else
  16.         if (field "UsermonNum") < 10 then
  17.           put "10" into field "UsermonNum"
  18.         else
  19.           put integer((field "UsermonNum")+1) into field "UsermonNum"
  20.         end if
  21.       end if
  22.       
  23.       set UsermonNum to (field "UsermonNum")
  24.       hilite field "UsermonNum"
  25.       
  26.     else
  27.       set the castNum of sprite ch to btnCN
  28.     end if
  29.     updateStage
  30.   end repeat
  31.   set the castNum of sprite ch to btnCN
  32.   
  33. end
  34.  
  35. on mouserUp
  36.   
  37. end